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Table of contents 


(¢ 9 HISTORY ; Detailed eg Pee Edit ereaery 

(3) 9 DECLARA RATION ; arative Part of Modul 

(4) 139 MTHSTAN = Standard. Single Precision Floating TAN 
(5) 186 MTHSTAN_RS = JSB entry point 

(6) THE TAN, Ra - JSB entry? point 

(7) 3 MTHSTAND = Standard ingle Precision Floating TAN 
fH STHSTAND RS = JSB entry point 


| 
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39 MTHSTAND_R4 = JSB entry point 
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1-020 . . aes 1 9133 :19 CMTHRTL.SRCIMTHTAN.MAR; 1 ad qd 
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| 

-TITLE MTHSTAN 3 r Leating Point Tangent routine 
3; (TAN, TAND) 

IDENT /1-020/ ; File: MTHTAN.MAR EDIT:RNH1020 
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UTI IS ISIS iii irri iri titi iii titi titi tii titi iiiiiiiitiiititi titty 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE AR Y 
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w * 
& ® 
C7 * 
® e 
* RO * 
* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. . 
% % 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT * 
* CORPORATION. * 
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& © 
* ® 
% * 
® a 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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s FACILITY: MATH LIBRARY 
; ABSTRACT: 


; MTHSTAN is a function which returns the floating point tangent 
of its single prestece floating point radian argument. The call is 
ll-by-reference. It does a JSB to MTHSTAN_RS. 


MTHSTAND is a function which returns the floating point tangent. 
of its single pres *eres floating point degree argument. The call is 
standard call-by-reference. It does a JSB to MTHSTAND_RS. 


MTHSTAN_RS, and MTHSTAND_RS are JSB entr points that JSB to MTH$SINCOS_RS5 
; and MTHSSINCOSD_RS respectively. MTHSTAN_R4, and MTHSTAND_R4 cannot use 

; the above two routines because shey are _R4 routines, so they JSB to 

; MTHSSIN_R4, MTHSCOS_R4, and MTHS$SIND_R4, MTHSCOSD_R4 routines. 


; standard ca 


; VERSION: 1 
; HISTORY: 
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Peter Yuo, 29-Jun-77: Version 01 
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; Detailed Current Edit History 6=-SEP-1984 11:27:19 (CMTHRTL.SRCJMTHTAN.MAR; 1 ( 


) 
-SBTTL HISTORY ; Detailed Current Edit History 
| 


; ALGORITHMIC DIFFERENCES FROM FP=11/C ROUTINE: none 


The result is reserved operand when COS(X) = 0, instead 
of largest or smallest representable floating number. 


Edit History 


01-2 Error pend| tog mechanism changed. Instead of having 
MTHSFLG_ JACKET at the entrance, MTHS$SSERROR_CONT is st 
top of the stack frame so when error happened in MTHS 
the ig will be hided away, but will get signalle 
Q1-3 The call to MTHSERROR_CONT is changed to MTHSSIGNAL_C 
0-4 MTHSSERROR shangee to MTHS$SIGNAL. 
MTH$_... changed to MTH__.... 
Changed error handling mechanism. Put error result in RO before 
calling MTHS$SIGNAL in order to allow user moet ty error result. 
- Put version number in standard format (three d guts of edit 
number) and update copyright notice. JBS 16-NOv-78 | 
Change MTH__FLOOVEMAT to MTHSK_FLOOVEMAT. JBS gi-bec~re 


ored on the 
SIN or MTH$COS 
7 MTHSTAN. 


NNN NNO A AOAOAAAAOOM 
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- Remove SSRADEF macro - not needed. JBS 16 
- Add "'_"’ to the PSECT directive. JBS 22-DEC-78 
- Fix error handling and detection. SBL 02-Feb-79 
- Declare externals. SBL ry he 
- Add JSB —_ point. JBS 16-AUG-1979 
- Make external references longword, and remove MTH$$SIGNAL_CON 
when come our own signal. JBS {6-AUG-1979 
- Correct a typo in edit 011. JBS 17-AUG-1979 ; 
- Have CALL entry JSB to JSB entry. Use correct signalling 
technique for JSB entry. SBL 31-Oct-1979 
- Reduce argument Limit to 2**50 to match SIN/COS. SBL 2-Nov-1979 
- Added degree entry points. RNH 8-MAR-1981 
- Undo edit 1-015. SIN/COS can now accept this argument Limit. RNH 26-AUG-8 
- Ade ae Mes tat and MTH$TAND_RS. Rearange the routine for simplicity. 
- Change external references from W* to G*. RNH 06-Oct-81 
- Missed a W*. RNH 08-Oct-81 
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| MTHSTAN ; Floatin Point Tangent routine 16-SEP-1984 01:51:57 VAX/VAS Macro V04-00 P 
| . 
1-020 BECLARATIONS ; Declarative Part of Modul ‘cosep-19p6 $1:37579 EMTARTe emeaariAncmaR:? a9 Ry 
| 123 .SBTTL DECLARATIONS  ; Declarative Part of Module 
101 ; 
! ¢ ; INCLUDE FILES: 
| 108 ; 
| 10 ; EXTERNAL SYMBOLS: 
8 108 -DSABL GBL 
00 109 eEXTRN MTHSSINCOS_RS 
38 119 -EXTRN MTHSSINCOSD_RS 
11 “EXTRN  MTHSSIN.RG 
00 11 eEXTRN MTHSCOS_R4 
000 11 EXTRN MTHSK_FCOOVEMAT 
000 114 -EXTRN MTHSSSIGNAL 
000 115 -EXTRN MTHSK_FLOUNDMAT 
000 116 ~EXTRN A TWBSIACKE] T_TST 
44 11 -EXTRN MTHSSIND_ Ra” 
000 118 ~EXTRN MIHSCOSD= RG 
0000 119 
0000 120; 
0000 121; mai | SYMBOLS: 
2EE10365 0000 1 § F_SMALLEST_DEG = *X2EE10365 
0000 123; 
0000 124 ; MACROS: 
0000 125 SSFDEF : Define SF (Stack Frame) symbols 
0000 126; 
0000 127; 
4 128 ; PSECT DECLARATIONS: 
0000 193 
00000000 130 -PSECT _MTHSCODE PIC,SHR,LONG, EXE ,NOWRT 
0000 8131 3 program section for math routines 
0000 133 3 
0000 133 ; OWN STORAGE: none 
0000 134; 
0000 135 ; CONSTANTS: 
0000 136 
00000004 0000 137 X= 4 :Position of argument from AP. 


_—_—_—_ SO 
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1-020 MTHSTAN : Standard Single Precision Flo 7$ee= 138 1:27:19 CMTHRTL.SRCJMTHTAN.MAR; 1 : 
6 173 -SBTTL MTHSTAN = Standard Single Precision Floating TAN 
141 
0 146 p++ 
| 8 137 3: FUNCTIONAL DESCRIPTION: 
8 146 ; TAN = single precision floating point function 
000 147: For algorithm, see MTHS$TAN_RS. 
$008 148 CALLING “lama : 
8808 150 ; 
00 151 ; TAN.wf.v = MTHSTAN(X.rf.r) 
0000 136 3 
0000 153 ; INPUT PARAMETERS: 
$009 188 Kart Add t value of angl 
3 Tt ress of value of angle in radians. 
0000 136 : : 
0000 157 ; IMPLICIT INPUTS: none 
0000 158; 
0000 159 ; OUTPUT PARAMETERS: 
$000 161 VALUE: float t th 
3 : oating tangent of the argument 
0000 196 5 ' 
0000 1635 ; IMPLICIT OUTPUTS: none 
0000 164; 
0000 165 ; COMPLETION CODES: none 
0000 166; 
0000 167 ; SIDE EFFECTS: 
0000 168; 
0000 169; NONE 
0000 170; 
0000 171 ;--- 
0000 \7¢ 
0000 «(17 
403C 0000 174 -ENTRY MTHSTAN, “M<IV, R2, R3, R4, RS> 
0002 175 ; Standard call-by-reference entry 
000 176 3; disable DV (and FU), enable IV 
4 177 MTHSFLAG_JACKET 
6D 00000000 ' GF 9E 000 MOVAB G*MTHSSJACKET_HND, (FP) 
0009 3; set handler address to jacket 
Babe ; handler 
50 04 8C 50 $09 178 MOVF aXx(AP), RO ; RO = argument 
01 10 0000 179 BSBB MTHSTAN_RS ; Get the tangent é 
04 OOOF 180 RET : Return with result in RO 
| 
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+ 
FUNCTIONAL DESCRIPTION 
TAN = single precision floating point function 


Algorithmic steps: 

1, Compute SIN and COS in one JSB. Neither computation should fail. 

¢: If COS is zero, error MTH$_FLOOVEMAT and return with reserved operand. 
Return SIN / COS. 

CALLING SEQUENCE: 


MOVF arquaent. RO 
JSB MTHSTAN_RS 


INPUT PARAMETERS: 
RO contains x 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
RESULT VALUE: 
The tangent of x 
SIDE EFFECTS: 


Se Se Se Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Sse Sse Sse Se Se Se Sse ete Be Se 


NONE 
MTHSTAN_RS:: 
E 16 JSB MTHSSINCOS_R5S ; Compute SIN(X), and COS(x) 
51 53 TSTF R11 : Is COS(x) EQL 6 ? 
0 13 BEQL 20$ 3; If so, error 
5 48 DIVF2 R1, RO : Compute SIN(x) / COS(x) 
0 RSB ; Return to caller 


; Branch to common error code 
20$: 


SSSSSSSSSSSSSSSSSSSSSSSSSssssssssssssssssss3sss3sss 
pole le le le lela lolol ela ala aww alo ao lala lola lololololololelolololelolololaleolalololeololololololololo!) 
meet a et ot = 2 2 = 4 = = = = SS I = 2 SS SS SS SS SS 
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00000000" EF 

4 

50 (51 
00cs 31 BRW COSZER ; 
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ATHSTANLRE - JSB entry point orSEpm 1986 91537519 EMTAR TE. CREIATMG AN AR: 1 a 1- 
-SBTTL MTHSTAN_R4 = JSB entry point 


| 
;++ 
; FUNCTIONAL DESCRIPTION 
: TAN = single precision floating point function 
; Algorithmic steps: 
: i. Compute SIN, and then COS. Neither computation should fail. 
; ¢: If COS is zero, error MTH$_FLOOVEMAT and return with reserved operand. 
3 3. Return SIN / COS. 


; CALLING SEQUENCE: 


COOOCCOCOCCCOooo 


MPIPOPOPOPIPUPINIPOPONPOPoNonnopnononoponnny) 


MOVF arqueent RO 
JSB MTASTAN_R4 


INPUT PARAMETERS: 

; RO contains x 

} OUTPUT PARAMETERS: 
a= 

; IMPLICIT OUTPUTS: 

3 NONE 

; RESULT VALUE: 

3 The tangent of x 
: SIDE EFFECTS: 

NONE 

if 


THSTAN_R4:: ; entry point 
PUSHL 


SOOCOOCOOGOOSCOSOOSOOOOOOSOOSOSOOOSOSOSOOSOSOOSOOOOOOOOCOOOOOOOOOOOOOOOO 


SOOCCCOSOCOSCOSOOOCOOOOOOO OOOO OO OOOO OOOOOOOOoOO 


HP AAAAAAAAIRIPPPIPDNININPINPININININPIPINPININIANIPNONY 


EP 8 ey ND TNF Oh a ak i a dd od 


50 oD US RO ; Save argument 
QOOOOO00'EF 1 4 JSB MTHSCOS_R4 : Compute COS(x) 
nm wm 3 5 MOVF RO, -(SP) ; Put on stack and test for zero 
ia. 8 BEQL :; If so, error 
50 04 AE OD MOVL 4(SP), RO ; Get argument back 
00009000"°EF 16 28 MTHSSIN RG : Compute SIN(x) 
50 E rs 7 DIVF (SP)+, RO ; Compute SIN(x) / COS(x) 
5E 04 C€ 80 ADDL #4, SP ; Remove argument from stack 
05 4. ; Return to caller 
3* 
: ; Restore stack, and go to common error code. 
3 bos 
5E 08 0 $ ADDL2 #8, SP ; Discard COS and argument 
00A0 1 8 BRwW COSZER : Go to common error code 
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MTHSTAN : mares 

1-020 ATHST - Standard Single Precision Fl 6=-SEP-19 2:27:19 CMTHRTL.SRCIMTHTAN.MAR; 1 
$8 -SBTTL MTHSTAND = Standard Single Precision Floating TAN 
91 


p++ 
; FUNCTIONAL DESCRIPTION: 


Wewr 


TAND = Single precision floating point function 
For algorithm, see MTHSTAND_RS. 
CALLING SEQUENCE: 


SSSsssssssss 2 


Sek ak ak Dal Del Sel el el ak Deak Sk Sak Sak take ke ee ake ake ake ae tae a ta dak ae ae a ee — hee 


: 9 
9 
94 ; 
g ; 
: $7 : 
39 : 
$0 $4 : TAND.wf.v = MTHSTAND(X.rf.r) 
00 3 3 
00 2 bz : INPUT PARAMETERS: 
4 : 3? ; X.erf.r zAddress of value of angle in degrees. 
99 3 07 : IMPLICIT INPUTS: none 
00 3 09 : OUTPUT PARAMETERS: 
+3 : 1} : VALUE: floating tangent of the argument 
99 3 13 : IMPLICIT OUTPUTS: none 
0045 315 : COMPLETION CODES: none 
9049 7 : SIDE EFFECTS: 
0045 319; NONE 
0045 3 3 
0045 1 ;--- 
er 
403¢c 0045 24 eENTRY MTHSTAND, “M<IV, R2, R3, R4, RS> 
0047 325 3; standard call-by-reference entry 
0047 $58 ; disable DV (and FU), enable IV 
9047 MTHSFLAG_JACKET 
6D 00090000 ' GF 9E Oode MOVAB G*MTHSSJACKET_HND, (FP) : 
04E 3 set handler address to jacket 
bce 3; handler 
50 04 6C 50 Dose 28 MOVF @Xx(AP), RO ; RO = argument 
01 10 005 $3 BSBB MTHSTAND_RS ; Get the tangent : 
04 0054 0 RET ; Return with result in RO 
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MTHSTAND_RS:: 
CL 


+ 
We now know that MTHSSINCOSD_R5 


v04-00 


e 
1:27:19 CMTHRTL.SRCIJMTHTAN.MAR; 1 


~SBTTL MTHSTAND_RS = JSB entry point 


ee 
; FUNCTIONAL DESCRIPTION 


TAND = Single precision floating point function 
Algorithmic steps: 
"<6 Check for argument too small for SIND. If so, return zero, and 


signal floating point underflow if enabled. 
¢: Fompute te and COSD in one JSB. Neither computation should fail. 


5 egren arver MTHS$_FLOOVEMAT and return with reserved operand. 


4: = Return SIND / COS 
CALLING SEQUENCE: 


MOVF argument, RO 
JSB MTASTAND_RS 


INPUT PARAMETERS: 
RO contains x 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
RESULT VALUE: 
The tangent of x 
SIDE EFFECTS: 


Signal MTH$_FLOUNDMAT if ix: < 180/pi*2**-128 


BICcL3 9.9000. RO, R1 3 RT = Ix! 

CMPW #*x380, R1 ; Compare with 2**-121 
BGEQ ; No underflow possible 
CMPF #F SMALLEST_DEG, R1 ; Better test. Compare 
BLSS 308 3 IX! with 180/pis2e#-128 
TSTL RO ; Check for zero 

BNEQ UNFL ; ARG too small and not 0 
RSB ; Return RO = 0 


-R5 routine will not fail, and that the 
divide following them will not fail. 


eeeeetadl ;' 
4 
50 1 


rnd PAo" RS 2 "88 


a 


Tangent r qutine | 
entry potn 


O$: 


HS$SINCOSO_RS 3; Compute SIND(X) 

: Is COSD(X) EQL 6 ? 
; If so, error 
; Compute SIND(x) / 
; Return to caller 


TECSEBCISES QU:SH:9% UATE. TRESRNPEACRanss P89 By 


and COSD(X) 


COSD(x) 


at 


MTHSTAN : FL 
1-020 THSTAN 


ros 
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-SBTTL MTHSTAND_R4 = JSB entry point 
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+ 
FUNCTIONAL DESCRIPTION 
TAND = Single precision floating point function 
Algorithmic steps: 
1. Check for arquaess too small for SIND. If so, return zero, and 
signal floating point underflow if enabled. 

¢: rompute SIND, and then COSD. Neither computation should fail. 

° If COSD is zero, error MTH$_FLOOVEMAT and return with reserved operand. 
4. = Return SIND / COSD. 
CALLING SEQUENCE: 


MOVF argument, RO 
JSB MTHSTAND_R4 


INPUT PARAMETERS: 
RO contains x 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
RESULT VALUE: | 
The tangent of x 
SIDE EFFECTS: 


SoG0 Go. G0 G0 Goon G20 Ge Ge OP Ge Go GD Go SP SP GOD 
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Signal MTH$_FLOUNDMAT if ix! < 180/pi*2e#-128 
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MTHSTAND_R4:: 3 entry point 
51 50 00008000 8F CB BIcL3 #*x8000, RO, R1 s R1 = ix! 
51 0380 8F 61 CMPW #*x380, R1 : Compare with 2**-121 
—E 18 BGEQ : No underflow possible | 
51 2€€10365 8F 51 CMPF #F SMALLEST_DEG, R1 ; Better test. Compare 
93 19 9 BLSS 308 3 Xt with 180/pie2**-128 
2 DS TSTL R : Check for zero 
2 ig BNEQ UNFL ; ARG too small and not 0 
0 RSB ; Return RO = 0 


4 


; We now know that the SIND and COSD routines will not fail, and that the 
; divide following them will not fail. 
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1-020 AND_R4 = JSB entry point 


yp a at 9 01:51:57 aces Macro V04-00 Page 1 
6-SEP=1984 11:27:19 CMTHRTL.SRCIMTHTAN.MAR; 1 ( 


Ff 
H 
50 DD 9D 4 308: PUSHL RO 3 Save argument 
a 1 oF JSB MTHSCOSD_R4 3 Compute -COSD (x) 
E eee ~ MOVF RO, -(SPY ; Put on stack and test for zero 
1 1 A BEQL 2 3; If so, error 
50 Q4 AE OD AA MOVL 4(SP), RO ; Get argument back 
00009000" EF 16 OOAE JSB MTHSSIND_R4 > Compute SIND(x) | 
E 4 4 DIVF (SP)+, RO 3; Compute SIND(x) / COSD(x) 
5E 04 f $4 ; Remove argument from stack 


ADDL2 #4, SP 
RSB Return to caller 


3¢ 
; Restore stack, and go to common error code. 
208: 
come #8, SP Discard COSD and argument 


5 
COSZER ; Go to common error code 


BPP LLLP LPL EEE 
PADRAIG 


E 08 
0024 


H 2 
MTHSTAN ; Floating Point Tangent routine 16-$ 1: AX/VMS Macro V04-00 Page 12. 
1-020 hrHsTanD Re © JSB entry point 6-S 71382 Hi; 34:35 MTHRTL.SRCIMTHTAN.MAR; 1 . 16) 
C1 $30 3 
C1 47 COMMON ERROR PATHS 
C1 406 ; | 
C1 47 
C1 474 
C1 475 ; 
3 278 : ; Come here if underflow; signal error if FU is set. Always return 0.0 
soot Ot nt onovest R k ine's PSL | 
; = user's or jacket routine's 
00000000 ' GF 66 FB 3 480 CALLS os, G“MTHSSJACKET_TST : Rg = TRUE if JSB from jacket routine 
04 50 5? SCA 481 BLBC : branch if user did js8 
52 04 AD 3C O0CD 482 MOVZ2WL SFS$W_SAVE_PSW(FP), R2 ; get user PSL save by CA | 
50 D4 0001 483 10$:  CLRL RO : RO = result. CTBSSIGWAL WILL save in | 
00D 484 : CHF SL_MCH_ RO/R1 so any handler gen | [ime 
0D 52 06 €1 00D3 485 BBC #6, R2, 208 > has user enabled floating under fl 
DD sit4 486 PUSHL (SP) 3; yes, return PC from special nrtar 
7E OO°S8F 9A Q0D9 487 MOVZBL #MTHSK_FLOUNDMAT, -(SP) ; trap code for hardware floa ing under f Low 
O0DD 488 ; convert to MTH$_FLOUNDMAT (32-bit VAX-11 
O0DD 489 : pd code)” 
Q00000000'GF 02 FB OO0DD 490 CALLS #2, G*MTHSSSIGNAL : atonal leondt tion. PC) 
05 OOES 491 208: RSB : urn 
O0ES $38 3 
OOES 49 Oe 
Opes £38 3 "tons here if COS(X) or COSD(X) is zero. This means that TAN(X) is infinite. 
OOES 496 oszeR: 
6— OD OOES 497 PUSHL (SP) ; User ‘‘call"* PC 
00° 8F 9A O0E7 498 MOVZBL #MTHSK_FLOOVEMAT, -(SP) 3; Condition value 
50 O01 OF 78 OOEB 499 ASHL 15, # ; RO = reserved operand 
00000000'GF 02 FB OOEF 500 CALLS #2, G*MTHS$SIGNAL : Signal the error | 
05 OOF6 501 RSB ; Return to caller. | 
OOF 7 206 
OOF7 50 .END 


MTHSTAN 
Symbol table 


PmALLEST =. r. ath . 
MTHSSJACKET_H 


Oo 
~ 


The working is Limit was 900 pages. 


5635 source lines were read in Pass 1, 


I 
; Floating Point Tangent routine 


pages) of virtual memory were used to buffer 
0 pages of symbol table space a iseasee to hold 

progec tng tS 
9 pages of virtual memory were used to define 8 macros. 


gerreree x o¢ 
MTHSSJACKET_ nee tetetere x 
MTHSS$SIGNAL eeeeeeee 0 
MTHSCOSD_R4 eeeneeee 86 0 
MTHSCOS RG eeeeeeee x 0 
MTHSK_FCOOVEMAT teeeeeee x 0 
SK FL eerereee x 00 
MTHSSINCOSD RS eeeeeeeer x 00 
MTHSSINCOS RS eeeeeeee =X 8 00 
THSSIND R eeereree x 88 
MTHSSIN_RG eeeeeeee 8 6X 
MTHSTAN 00000000 RG 0 
MTHSTAND 00000045 RG 0 
MTHSTAND_RG sieie RG 0 
MTHSTAND RS 0000 RG 0 
MTHSTAN_RG 00021 RG 0 
MTHSTAN_RS 00000010 RG 02 
ore. SAVE_PSW = 00000004 
Q000000C1 R 02 
= 00000004 
for en mr enero ewe cee te 
: Psec* synopsis ! 
PSECT name Allocation PSECT No. Attributes 
S 00000000 < 00 9-3 NOPIC USR CON ABS 
$ 00000000 < 0:) 01 1.) NOPIC USR CON ABS 
MTHSCODE OOOOOOF7 ( 24 02 2.) PIC USR CON REL 
ceeeciinehinnanmmnnapinaimnerenininacenls 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.06 80: 00:00.7¢ 
commend processing 112 0:00:00.71 00:00:03.39 
126 0: 8: 1.60 0:00:05.85 
Synbol table sort 0 0:00:00.04 0:00:00.06 
s 2 94 8:0 : +43 8:08: 5.7 
se B iable output ; :00:00.0 0:00:00.0 
Psect synopsis output 0:00: 8 B h8! 0.0 
Cross-reference output 0 BB: :00. 0: 8700-08 
Assembler run totals 369 0:00:03.6 0:00:15.79 


he intermediate code 
non-local and 
object records in Pass 2. 


16-SEP-1986 01:51:57 VAX/VMS Macro Vv04-00 p 
green 8ee T]3bi 7s TANTS Bec ce Ook. = (Page 


LCL ot NOEXE NORD NOWRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 
LCL SHR EXE RD NOURT NOVEC LONG 


local symbols. 


Ou 
~ 


d 2 
MTHSTAN ; Floating Point Tangent routi SEP-1984 AX/VMS M v04-00 P 
VAR11 Macro Run Statistics ° oman Moreen Toke SYiSbi 25 PATANES Bac te ile OO ks = Page 


$erece Sw wre eae e rena nensawea a + 
! Macro Library statistics ! 


geeveee seco saneacane eeeeeeoen} 


Macro Library | name Macros defined 


88 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHTAN/OBJ=OBJ$:MTHTAN MSRC$:MTHJACKE I /UPDATE=(ENHS:MTHJACKET) +MSRCS:MT 


244 AH BT13A-SE : ENT CORPORATION 
VAX/VMS V4.0 ND PROPRIETARY 


